10 REM TENNIS TEIL 2 12 REM 14 REM 16 REM 18 REM 20 REM 22 REM 35 V=53248:SI=54272:CS=58732:A$=" 0153040 V":SA=1:AU=1:DIMMU(26,2) 40 PRINT"[147]":POKE214,10:SYSCS:PRINT" BITTE WARTEN SIE EINEN AUGENBLICK BIS " 45 PRINT" ALLE DATEN EINGELESEN WORDEN SIND ":POKEV+21,0 50 REM 55 REM 60 REM 70 FORA=28672TO28692:POKEA,0:NEXT 80 FORA=0TO64*7-1:READB:POKE2048+A,B:NEXT 95 FORA=24576TO25609:READB:POKEA,B:NEXT 100 POKE2040,32:POKE2041,34:POKE2042,36:POKE2043,37:POKE2044,38 105 POKEV+37,7:POKEV+38,0:POKEV+39,2:POKEV+40,6:POKEV+41,9:POKEV+42,9 110 POKEV+23,3:POKEV+28,3:POKEV+43,7:POKE28674,1:POKE28675,0:POKE28672,8 115 POKE28673,8:POKE28683,0 385 REM 390 REM 395 REM 400 POKEV+16,0:PRINT"[147]";:POKEV+32,5:POKEV+33,5 405 POKEV+1,60:POKEV+3,60:POKEV+5,60:POKEV+7,60:POKEV,82:POKEV+4,91 410 POKEV+2,255:POKEV+6,247:POKEV+21,15 415 POKESI+24,15:POKESI+5,0:POKESI+6,240:POKESI+4,129:FORA=0TO87:PRINT"" 420 PRINTTAB(12)"[162][162][187][162][162][172][187][172][172][187][172][172] [162][187]" 425 PRINTTAB(12)" [161] [188][146][162][161][161][161][161][161][161][161][146][188][162][187]" 430 PRINTTAB(12)" [161] [188][146][162][161][146]  [161][146]  [161][146] [162][191]":POKESI+1,100-A:POKE646,A:NEXT 435 POKESI+4,0:INPUT"[144]NAME SPIELER 1";NA$(1):INPUT"NAME SPIELER 2";NA$(2) 440 NA$(1)=CHR$(18)+NA$(1):NA$(2)=CHR$(18)+NA$(2) 445 PRINT"SIE KOENNEN ZWISCHEN 3 SCHWIERIGKEITS- GRADEN WAEHLEN" 450 PRINT"1) ANFAENGER":PRINT"2) FORTGESCHRITTENER":PRINT"3) PROFI" 460 GETIN$:IFIN$<"1"ORIN$>"3"THENGOTO460 465 POKE24721,(53-ASC(IN$))*2+1 470 PRINT"VIEL GLUECK...DAS MATCH BEGINNT !" 475 POKESI+5,5:POKESI+6,0:POKESI+24,15:POKEV+21,0 500 PRINT"[147]"; 510 FORA=0TO4:PRINT"[144] ";:NEXT:GOSUB1500 550 POKE211,0:POKE214,7:SYSCS:POKE646,1 555 PRINT"[146] [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][186][204][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185] " 560 PRINT" [165] [165] [170][180] [167] [167] " 565 PRINT" [167] [165] [170][180] [167] [165] " 570 PRINT" [200] [167] [170][180] [165] [165] " 575 PRINT" [199] [167] [170][180] [165] [199] " 580 PRINT" [165] [167] [170][180] [165] [167] " 585 PRINT" [165] [167] [170][180] [165] [167] " 590 PRINT" [167] [170][185][185][185][185][185][185][185][185][186][204][185][185][185][185][185][185][185][185][165] [165]" 595 PRINT" [200] [167] [170][180] [165] [199]" 600 PRINT" [217] [212] [170][180] [217] [199]" 605 PRINT" [217] [212] [170][180] [217] [199]" 610 PRINT" [199] [212] [170][180] [217] [200]" 615 PRINT" [212] [212] [170][180] [217] [217]" 620 PRINT" [212] [165] [170][180] [167] [217]" 625 PRINT" [180] [165] [170][180] [167] [167]" 630 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 1000 GOSUB1500:SYS24988: IFPEEK(28676)=130THENS=2 1010 IFPEEK(28676)=2THENS=1 1020 IFPEEK(28683)=1THENPU(S)=PU(S)+1 1030 IFPEEK(28683)=255THENS=3-S:PU(S)=PU(S)+1 1035 IFPU(S)=4ANDPU(3-S)<3THENGOTO1100 1060 IFPU(3-S)=4THENPU(S)=PU(S)-1:PU(3-S)=PU(3-S)-1 1070 IFPU(S)=5THENGOTO1100 1090 GOTO1000 1100 PU(1)=0:PU(2)=0:POKE28673+AU,0:POKE28673+3-AU,1:AU=3-AU 1105 SP(S,SA)=SP(S,SA)+1 1110 IFSP(S,SA)<6ORSP(S,SA)SP(3-S,SA)-2THENGOTO1000 1115 SA=SA+1:SA(S)=SA(S)+1 1120 IFSA(S)=2ORSA(3-S)=2THENGOTO2000 1125 GOTO1000 1500 POKE28683,0:PRINT"[144]";:FORA=1TO2:PRINTNA$(A);:POKE211,20:SYSCS:FORB=1TO3 1505 PU$(A)=CHR$(18)+MID$(A$,PU(A)*2+1,2) 1515 IFSA>=BTHENPRINT""SP(A,B); 1520 NEXT:POKE211,33:SYSCS:PRINTPU$(A);:POKE211,36:SYSCS:IFAU=ATHENPRINT"[209]" 1525 IFAU<>ATHENPRINT" " 1530 POKE214,3:SYSCS:NEXT:RETURN 2000 POKESI+5,0:POKESI+6,240:POKESI+24,15:SA=SA-1:GOSUB1500 2010 FORA=0TO25:POKESI+1,MU(A,0):POKESI,MU(A,1):D=MU(A,2):POKESI+4,33 2020 FORB=0TOD:NEXT:POKESI+4,0:NEXT 2030 FORA=1TO2:IFSA(A)<2THENGOTO2100 2040 FORA1=0TO10:POKE211,0:POKE214,A*2-1:SYSCS:PRINTNA$(A):FORB=0TO300:NEXT 2050 POKE211,0:POKE214,A*2-1:SYSCS:PRINTMID$(NA$(A),2):FORB=0TO300:NEXT:NEXT 2100 NEXT:SA=1:FORA=1TO2:FORB=1TO3:SP(A,B)=0:NEXT:NEXT:SA(1)=0:SA(2)=0 2110 PU(1)=0:PU(2)=0 2150 POKE211,0:POKE214,23:SYSCS:PRINT"WOLLEN SIE NOCH EINMAL SPIELEN ? 2160 [151]198,0:[146]198,1:[161]IN$:[139]IN$[178]"J"[167][137]400 2170 [137]2170 49985 : 49990 [143] *** LAUFENDER SPIELER 1 *** 49995 : 50000 [131]0,3,252,0,3,212,0,3,84,0,3,84,0,10,128,0,42,128,0,42,128,0,42,128 50010 [131]0,42,168,0,42,170,0,21,64,0,21,80,0,84,80,0,80,20,53,80,84,53,64,80 50020 [131]48,0,208,0,0,48,0,0,12,0,0,0,0,0,0,0 50030 : 50035 [143] *** STEHENDER SPIELER 1 *** 50040 : 50050 [131]0,3,252,0,3,212,0,3,84,0,3,84,0,10,128,0,42,128,0,42,128,0,42,128 50060 [131]0,42,168,0,42,170,0,21,64,0,21,64,0,21,64,0,20,80,0,21,80,0,85,64 50070 [131]0,208,64,0,49,64,0,15,224,0,0,0,0,0,0,0 50080 : 50085 [143] *** LAUFENDER SPIELER 2 *** 50090 : 50100 [131]63,192,0,23,192,0,21,192,0,21,192,0,2,160,0,2,168,0,2,168,0,2,168,0 50110 [131]42,168,0,170,168,0,1,84,0,5,84,0,5,21,0,20,5,0,21,5,92,5,1,92,7,0,12 50120 [131]12,0,0,48,0,0,0,0,0,0,0,0,0 50130 : 50135 [143] *** STEHENDER SPIELER 2 *** 50140 : 50150 [131]63,192,0,23,192,0,21,192,0,21,192,0,2,160,0,2,160,0,2,168,0,2,168,0 50160 [131]42,168,0,170,168,0,1,84,0,1,84,0,1,84,0,5,20,0,5,84,0,1,85,0,1,71,0 50170 [131]1,76,0,15,240,0,0,0,0,0,0,0,0 50180 : 50185 [143] *** SCHLAEGER *** 50190 : 50200 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,9,0,0,17 50210 [131]0,0,17,0,0,17,0,0,17,0,0,18,0,0,28,0,0,16,0,0,32,0,0,32,0,0,64 50220 [131]0,0,64,0,0,0,0,0,0,0 50230 : 50235 [143] *** SCHLAEGER *** 50240 : 50250 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,0,144,0,0,136,0,0,136,0,0 50260 [131]136,0,0,136,0,0,72,0,0,56,0,0,8,0,0,8,0,0,4,0,0,4,0,0 50270 [131]2,0,0,2,0,0,0,0,0,0 50280 : 50285 [143] *** BALL *** 50290 : 50300 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0 50310 [131]0,60,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 59985 [143] 59990 [143] *** DATAS FUER M-CODE *** 59995 [143] 60000 [131]169,224,141,2,220,169,1,141,8,112,173,0,220,168,201,127,240,27,206 60001 [131]0,112,173,0,112,208,19,162,32,173,248,7,201,32,208,2,162,33,142,248 60002 [131]7,169,8,141,0,112,152,41,1,208,3,32,4,97,152,41,2,208,3,32,18,97 60003 [131]152,41,4,208,3,32,32,97,152,41,8,208,3,32,46,97,173,1,220,168,201 60004 [131]255,240,27,206,1,112,173,1,112,208,19,162,34,173,249,7,201,34,208 60005 [131]2,162,35,142,249,7,169,8,141,1,112,152,41,1,208,3,32,60,97,152,41 60006 [131]2,208,3,32,74,97,152,41,4,208,3,32,88,97,152,41,8,208,3,32,122,97 60007 [131]162,9,160,16,136,208,253,202,208,250,32,1,99,206,8,112,240,3,76,10 60008 [131]96,238,12,112,174,12,112,224,3,208,5,162,0,142,12,112,189,255,96 60009 [131]141,8,112,32,125,99,169,0,141,30,208,32,1,99,32,166,98,32,1,99,173 60010 [131]11,112,240,8,169,255,141,2,220,169,0,96,32,202,99,76,10,96,0,0,0 60011 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,1,1,2 60012 [131]0,0,173,1,208,201,80,240,6,206,1,208,206,5,208,96,173,1,208,201,208 60013 [131]240,6,238,1,208,238,5,208,96,173,0,208,201,24,240,6,206,0,208,206 60014 [131]4,208,96,173,0,208,201,162,240,6,238,0,208,238,4,208,96,173,3,208 60015 [131]201,80,240,6,206,3,208,206,7,208,96,173,3,208,201,208,240,6,238,3 60016 [131]208,238,7,208,96,173,2,208,201,184,240,26,206,2,208,16,8,173,16,208 60017 [131]41,253,141,16,208,206,6,208,16,8,173,16,208,41,247,141,16,208,96 60018 [131]173,2,208,201,64,240,26,238,2,208,48,8,173,16,208,9,2,141,16,208 60019 [131]238,6,208,48,8,173,16,208,9,8,141,16,208,96,169,15,141,21,208,169 60020 [131]15,141,24,212,169,192,141,1,208,141,5,208,169,96,141,3,208,141,7 60021 [131]208,169,224,141,2,220,169,10,141,16,208,169,24,141,0,208,169,32,141 60022 [131]4,208,169,64,141,2,208,169,55,141,6,208,173,0,220,168,41,1,208,10 60023 [131]173,1,208,201,168,240,3,32,11,97,152,41,2,208,3,32,18,97,152,41,16 60024 [131]208,8,173,2,112,240,3,76,47,98,173,1,220,168,41,1,208,3,32,60,97 60025 [131]152,41,2,208,10,173,3,208,201,120,240,3,32,81,97,152,41,16,208,8 60026 [131]173,3,112,240,3,76,91,98,162,16,160,255,136,208,253,202,208,250,76 60027 [131]212,97,173,0,208,24,105,24,141,8,208,173,1,208,141,9,208,169,31,141 60028 [131]21,208,173,16,208,41,239,141,16,208,169,2,141,4,112,169,129,141,5 60029 [131]112,32,135,98,76,0,96,173,2,208,56,233,26,141,8,208,173,3,208,141 60030 [131]9,208,169,31,141,21,208,173,16,208,9,16,141,16,208,169,130,141,4 60031 [131]112,169,1,141,5,112,32,135,98,76,0,96,169,5,141,1,212,169,0,141,5 60032 [131]212,169,247,141,6,212,169,129,141,4,212,169,128,141,4,212,169,0,141 60033 [131]13,112,96,173,4,112,48,23,173,8,208,24,109,4,112,141,8,208,208,8 60034 [131]173,16,208,9,16,141,16,208,76,222,98,56,233,128,141,6,112,173,8,208 60035 [131]56,237,6,112,141,8,208,201,254,208,8,173,16,208,41,239,141,16,208 60036 [131]173,5,112,48,13,173,9,208,24,109,5,112,141,9,208,76,1,99,56,233,128 60037 [131]141,7,112,173,9,208,56,237,7,112,141,9,208,96,173,30,208,168,201 60038 [131]20,208,3,76,21,99,152,201,24,208,3,76,73,99,96,169,2,141,4,112,173 60039 [131]30,208,32,3,100,173,0,220,168,201,127,240,27,152,41,9,208,6,169,129 60040 [131]141,5,112,96,152,41,10,208,6,169,1,141,5,112,96,152,41,8,208,5,169 60041 [131]0,141,5,112,96,169,130,141,4,112,173,30,208,32,3,100,173,1,220,168 60042 [131]201,255,240,27,152,41,5,208,6,169,129,141,5,112,96,152,41,6,208,6 60043 [131]169,1,141,5,112,96,152,41,4,208,5,169,0,141,5,112,96,173,4,112,48 60044 [131]11,173,8,208,201,184,208,3,32,152,99,96,173,8,208,201,160,208,3,32 60045 [131]152,99,96,141,5,212,169,243,141,6,212,169,10,141,1,212,169,129,141 60046 [131]4,212,169,128,141,4,212,169,255,141,13,112,173,9,208,201,100,176 60047 [131]5,169,255,141,11,112,201,215,48,32,169,255,141,11,112,96,173,9,208 60048 [131]201,70,240,33,201,235,240,29,173,16,208,41,16,208,7,173,8,208,201 60049 [131]4,144,15,173,16,208,41,16,240,7,173,8,208,201,80,240,1,96,173,13 60050 [131]112,208,6,169,255,141,11,112,96,169,1,141,11,112,96,32,135,98,32 60051 [131]166,98,96